home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / pc / dos / teachaid / pccai / caiarc1.exe / MENU.CAI < prev    next >
Text File  |  1993-12-06  |  1KB  |  55 lines
  1. .rem                                                                 
  2. .rem -----------------PRESS CTRL-G (Go) TO RUN THIS PROGRAM--------- 
  3. .rem                                                                 
  4. .rem    This is an example of using the @CASE command to create a menu
  5. @LABEL:BEGIN
  6. .screen 0
  7. .color 15,1
  8. .cls
  9. .color 15,4
  10. .locate 10,1
  11. @CASE(*ABCD:PCX,ANIM,MOVE,END*) center border shadow
  12.   A - Show A Sample PCX Graphics File
  13.   B - Show a Sample Animation
  14.   C - Show Sample Move
  15.   D - End This Program
  16. @END
  17. .pause
  18. @LABEL:PCX
  19.  
  20. .screen 1
  21. .cls
  22. .pcx testpcx.pcx 1,2
  23. .locate 24,1
  24. .pause
  25. @GOBACK:BEGIN
  26. @LABEL:ANIM
  27. .SCREEN 1
  28. .cls
  29. .locate 20,1 (*Example Animation*)
  30. .line (1,130)-(155,95)
  31. .line (155,95)-(315,130)
  32. .line (1,130)-(315,130)
  33. .LOAD RUNNER1,RUNNER2,RUNNER3,RUNNER4
  34. .rem ------------fix stepy for fractions , negatives
  35. .ANIMATE (1,100)-(150,60) STEPX=4 STEPY=-1 PAUSE=.1
  36. .ANIMATE (150,65)-(300,130) STEPX=4 STEPY=1 PAUSE=.1
  37. .locate 20,1 (*                              *)
  38. .locate 20,1
  39. .pause
  40. @GOBACK:BEGIN
  41. @LABEL:MOVE
  42. .screen 1
  43. .cls
  44. .locate 20,1(*Example Moving Single Image*)
  45. .get beetle
  46. .move (1,100)-(250,100)
  47. .locate 20,1 (*                            *)
  48. .locate 20,1
  49. .pause
  50. @GOBACK:BEGIN
  51. @LABEL:END
  52. .locate 24,1
  53. .pause (*Press Enter to End this Program:*)
  54. @STOP menu
  55.